home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #1 / Amiga Plus CD - 2000 - No. 1.iso / Tools / Dev / Meshwriter_lib / Library / samples / ripples.c < prev    next >
C/C++ Source or Header  |  1999-12-03  |  3KB  |  110 lines
  1. /*
  2. **      $VER: ripples.c 1.00 (20.3.1999)
  3. **
  4. **      Creation date     : 20.3.1999
  5. **
  6. **      Description       :
  7. **         MeshWriter testprogram shape module.
  8. **
  9. **
  10. **      Written by Stephan Bielmann
  11. **
  12. */
  13.  
  14. /*************************** Includes *******************************/
  15.  
  16. #include <meshwriter/meshwriter.h>
  17. #include <pragma/meshwriter_lib.h>
  18.  
  19. #include <math.h>
  20.  
  21. /**************************** Defines *******************************/
  22.  
  23. #define PI            3.14159265359
  24. #define RIPPLESSTEPS  20
  25.  
  26. /*********************** Type definitions ***************************/
  27.  
  28. /********************** Private functions ***************************/
  29.  
  30. /********************** Public functions ****************************/
  31.  
  32. /********************************************************************\
  33. *                                                                    *
  34. * Name         : ripples                                             *
  35. *                                                                    *
  36. * Description  : Draws some ripples with the help of a formula got   *
  37. *                out of Plotter 3D by Sven Steiniger.                *
  38. *                                                                    *
  39. * Arguments    : mesh    IN  : An initialized mesh handle.           *
  40. *                                                                    *
  41. * Comment      :                                                     *
  42. *                                                                    *
  43. \********************************************************************/
  44. void ripples(ULONG mesh) {
  45.   ULONG m[7],i;
  46.   TOCLColor color;
  47.   TOCLVertex matrix[RIPPLESSTEPS+1][RIPPLESSTEPS+1];
  48.   ULONG x,y;
  49.   FLOAT u,v;
  50.  
  51.   MWLMeshMaterialAdd(mesh,&m[0]);
  52.   color.r=0,color.g=0,color.b=0;
  53.   MWLMeshMaterialDiffuseColorSet(mesh,m[0],&color);
  54.  
  55.   MWLMeshMaterialAdd(mesh,&m[1]);
  56.   color.r=255,color.g=0,color.b=0;
  57.   MWLMeshMaterialDiffuseColorSet(mesh,m[1],&color);
  58.  
  59.   MWLMeshMaterialAdd(mesh,&m[2]);
  60.   color.r=255,color.g=255,color.b=0;
  61.   MWLMeshMaterialDiffuseColorSet(mesh,m[2],&color);
  62.  
  63.   MWLMeshMaterialAdd(mesh,&m[3]);
  64.   color.r=255,color.g=255,color.b=255;
  65.   MWLMeshMaterialDiffuseColorSet(mesh,m[3],&color);
  66.  
  67.   MWLMeshMaterialAdd(mesh,&m[4]);
  68.   color.r=0,color.g=255,color.b=255;
  69.   MWLMeshMaterialDiffuseColorSet(mesh,m[4],&color);
  70.  
  71.   MWLMeshMaterialAdd(mesh,&m[5]);
  72.   color.r=255,color.g=0,color.b=255;
  73.   MWLMeshMaterialDiffuseColorSet(mesh,m[5],&color);
  74.  
  75.   MWLMeshMaterialAdd(mesh,&m[6]);
  76.   color.r=0,color.g=0,color.b=0;
  77.   MWLMeshMaterialDiffuseColorSet(mesh,m[5],&color);
  78.  
  79.   MWLMeshNameSet(mesh,"Ripples");
  80.  
  81.   u=0;
  82.   for(x=0;x<RIPPLESSTEPS+1;x++) {
  83.     v=0;
  84.     for(y=0;y<RIPPLESSTEPS+1;y++) {
  85.         matrix[x][y].x=u*cos(v);
  86.         matrix[x][y].y=u*sin(v);
  87.         matrix[x][y].z=2*cos(4*u)*cos(4*u)*exp(-u);
  88.  
  89.         v+=2*PI/RIPPLESSTEPS;
  90.     }
  91.     u+=PI/RIPPLESSTEPS;
  92.   }
  93.  
  94.   for(x=0;x<(RIPPLESSTEPS);x++) {
  95.     for(y=0;y<(RIPPLESSTEPS);y++) {
  96.       i=(ULONG)(10*matrix[x][y].z);
  97.  
  98.       if(i>6) i=6;
  99.  
  100.       MWLMeshPolygonAdd(mesh,m[i]);
  101.       MWLMeshPolygonVertexAdd(mesh,&matrix[x][y]);
  102.       MWLMeshPolygonVertexAdd(mesh,&matrix[x+1][y]);
  103.       MWLMeshPolygonVertexAdd(mesh,&matrix[x+1][y+1]);
  104.       MWLMeshPolygonVertexAdd(mesh,&matrix[x][y+1]);
  105.     }
  106.   }
  107. }
  108.  
  109. /************************* End of file ******************************/
  110.